function kost = belasting_14(sector,p_piek,tijd)

%model:
t1 = 20*60;%20 min (interruption.pdf)
t2 = 3600; %(interruption.pdf)
t3 = 4*3600; %(interruption.pdf)
t4 = 6*3600; %(determination and use of SCDF)
t5 = 12*3600;  %(determination and use of SCDF)
t6 = 24*3600;  %(determination and use of SCDF)

% verschillende kostenprofielen
switch sector
    
 case voeding
    
    %BILLINTON

    %%%%%%%%%%%%%%%%%%%%
    %VOEDING(INDUSTRIE)%
    %%%%%%%%%%%%%%%%%%%%

        k1 = 4.74;
        k2 = 15.1;
        k3 = 50.52;
        k4 = 70;
        k5 = 150;
        k6 = 270;
        k7 = 300; %verzonnen

        kost = 0;

    if tijd < t1
        kost = k1*p_piek;
       
    elseif t1<tijd && tijd<t2
        kost = k2*p_piek;
        
    elseif t2<tijd && tijd<t3
        kost = k3*p_piek;
        
    elseif t3<tijd && tijd<t4
        kost = k4*p_piek;
        
    elseif t4<tijd && tijd<t5
        kost = k5*p_piek;   
    elseif t5<tijd && tijd<t6
        kost = k6*p_piek;       
    else
        kost = k7*p_piek;
    end

  case 2
      
      %%%%%%%%%%%%%%%%%%%%
      %TEXTIEL(INDUSTRIE)%
      %%%%%%%%%%%%%%%%%%%%
      
        k1 = 3.02;
        k2 = 5.4;
        k3 = 7.45;
        k4 = 10;
        k5 = 20;
        k6 = 30;
        k7 = 35; %verzonnen

        kost = 0;

    if tijd < t1
        kost = k1*p_piek;
       
    elseif t1<tijd && tijd<t2
        kost = k2*p_piek;
        
    elseif t2<tijd && tijd<t3
        kost = k3*p_piek;
        
    elseif t3<tijd && tijd<t4
        kost = k4*p_piek;
        
    elseif t4<tijd && tijd<t5
        kost = k5*p_piek;   
    elseif t5<tijd && tijd<t6
        kost = k6*p_piek;       
    else
        kost = k7*p_piek;
    end
    
  otherwise
    'sector 3'
end

